perm filename ASSIGN.SAI[PIX,HPM] blob sn#149547 filedate 1975-03-12 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "ASSIGN"
C00003 ENDMK
C⊗;
BEGIN "ASSIGN"
REQUIRE "DDSUB.SAI[GRA,HPM]" SOURCE_FILE;
INTEGER I;
WHILE TRUE DO
   BEGIN
   OUTSTR("CHANNEL:");
   IF (I←CVO(INCHWL))<0 THEN RDDCHN(-I) ELSE OUTSTR(CVOS(GDDCHN(I)));
   OUTSTR('15&'12);
   END;
END;